home *** CD-ROM | disk | FTP | other *** search
/ Pascal Super Library / Pascal Super Library (CW International)(1997).bin / SHELLS / SZ2 / GUNSORT.INT < prev    next >
Text File  |  1992-08-31  |  2KB  |  49 lines
  1.    {*******************************************************************
  2.  
  3.    GUNSORT.INT
  4.  
  5.    *******************************************************************}
  6.    {===================================================================
  7.    UNSORTED COLLECTION - unsorted list of PStrings
  8.    ===================================================================}
  9. TYPE
  10.    PUnsortedCollection       = ^TUnsortedCollection ;
  11.    TUnsortedCollection       = OBJECT ( TCollection )
  12.    procedure FreeItem        ( Item : pointer ) ; virtual ;
  13.    procedure PutItem         ( VAR S : TStream ; Item : Pointer ) ; virtual ;
  14.    function GetItem          ( VAR S : TStream ) : Pointer ; virtual ;
  15.    procedure Store           ( VAR S : TStream ) ;
  16.    constructor Load          ( VAR S : TStream ) ;
  17.                                END ;
  18.    {- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  19.    REGISTRATION (ObjType:  TCollection/50, TStringCollection/51)
  20.    - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -}
  21. CONST
  22.    RUnsortedCollection       : TStreamRec =
  23.    (
  24.    ObjType                   : 60000 ;
  25.    VmtLink                   : Ofs ( TypeOf ( TUnsortedCollection ) ^ ) ;
  26.    Load                      : @TUnsortedCollection.Load ;
  27.    Store                     : @TUnsortedCollection.Store
  28.    ) ;
  29.    {===================================================================
  30.    SORTED COLLECTION - The "Objects" unit doesn't have registration
  31.    record for TSortedCollection.
  32.    ===================================================================}
  33. CONST
  34.    RSortedCollection         : TStreamRec =
  35.    (
  36.    ObjType                   : 60001 ;
  37.    VmtLink                   : Ofs ( TypeOf ( TSortedCollection ) ^ ) ;
  38.    Load                      : @TSortedCollection.Load ;
  39.    Store                     : @TSortedCollection.Store
  40.    ) ;
  41. procedure SetPStr            ( VAR P : PString ; S : string ) ;
  42. function GetPStr             ( P : PString ) : string ;
  43. function EmptyMenuBar        : PMenuBar ;
  44. function EmptyStatusLine     : PStatusLine ;
  45. procedure DisposeCollection  ( VAR C ) ;
  46. procedure DisposeView        ( VAR P ) ;
  47. procedure DisposeMenuBox     ( VAR Box : PMenuBox ) ;
  48. procedure ExecMenu           ( G : PGroup ; Box : PMenuBox ; VAR Event : TEvent ) ;
  49.